5 IFM9THENSYS64738 10 REM YOUR COLOR PROFILE - SCHILLING - MOD 1 20 S=54272:V=53281:VB=V-1:FORX=0TO24:POKES+X,0:NEXT:GOSUB3940:POKEV,15:POKEVB,0 30 C$(0)="[152]":C$(1)="":C$(2)="":C$(3)="":C$(4)="[158]":C$(5)="[156]" 40 C$(6)="[149]":C$(7)="[144]":C$(8)="[154]":R$="":F$="[146]":X$=" ":XX$=" ":X4$=" " 50 PRINT"[147]"X$R$" YOUR LUESCHER COLOR TEST ":FORY=1TO2:FORX=0TO7 60 PRINTX$R$""X$C$(X)XX$TAB(36)XX$""X$:NEXT:NEXT:PRINTX4$"[145]";:FORY=1TO4 70 FORX=0TO7:PRINTR$C$(X)X$;:NEXT:NEXT:PRINT:PRINTX$;:FORY=1TO19:PRINTR$""XX$; 80 NEXT:PRINT""TAB(6)"[151]PLEASE TYPE YOUR FIRST NAME, 90 [153][163]13)"THEN PRESS POKE":RT[178]1:[141]550 100 [153][163]5)"";:[151]198,0:[151]VB,15 110 K$[178]"":[151] 198,0 120 [153]" CMDWAIT";: [129]T[178]1[164]50:[130]:[153]" CMD"; 130 [161]A$:[139] A$[178]""[167] 120 140 [139] A$[178][199](13)[167]N$[178]K$:[137]200 150 [139] A$[178][199](20)[175][195](K$)[167] [153]"CMD CMD";:K$[178][200](K$,[195](K$)[171]1):[137]120 160 [139] [195](K$)[177]10[167] 120 170 [139] A$[179]"A"[176]A$[177]"Z"[167]120 180 [153]A$;:K$[178]K$[170]A$ 190 [137]120 200 [153]R$"LOAD LUESCHER COLOR TEST " 210 [153]"POKEGREY BLUE GRN RED YELL VIOL BRWN BLCK 220 FORY=1TO4:FORX=0TO7:PRINTR$C$(X)X4$F$X$;:NEXT:NEXT 230 PRINT"[151] PLEASE ADJUST YOUR COLOR MONITOR TO 240 [153]" GIVE THE BEST COLOR REPRESENTATION, 250 PRINT" THEN PRESS [151] TO CONTINUE":GOSUB550:M$="" 260 PRINT"":FORY=1TO118:PRINTX$;:NEXT:PRINT"";:CR=0 265 PRINT"[152]0123[158]4[156]5[149]6[144]7" 270 GOSUB470:NU=1:GOSUB550:A1=VAL(M$):PRINT:GOSUB480:GOSUB550:B1=VAL(M$):PRINT 280 GOSUB510:GOSUB550:D1=VAL(M$):PRINT:GOSUB540:GOSUB550:C1=VAL(M$):PRINT 290 IFA1>7ORB1>7ORC1>7ORD1>7ORA1=B1ORC1=D1THENGOSUB3870:GOTO50 300 PRINT"[147]":PRINT" WELL DONE, "N$"," 310 PRINT"BUT WE HAVE MORE WORK TO DO.":PRINT"AFTER ALL, "; 320 PRINT"DR. LUESCHER HAS BEEN WORKING ON HIS COLOR TESTS SINCE 1947. 330 [153]"SO, LET'S DO IT ONCE AGAIN, BUT IN A DIFFERENT WAY. 340 PRINT"HAVE A CUP OF COFFEE, CLEAR YOUR MIND" 350 PRINT" AND PRESS ":NU=.:CR=1:GOSUB550:M$="" 360 POKEV,0:POKEVB,0:PRINT"[147]"R$"[155] LUESCHER COLOR TEST - SECOND ROUND " 370 PRINT:FORX=0TO6:PRINTR$C$(X)XX$X;:NEXT:PRINT:PRINTTAB(35)"[145]"C$(0)"[207][183][183]7 380 [129]X[178]0[164]6:[153]R$C$(X)X4$F$X$;:[130]:[153]:[153][163]35)"ON"C$(0)"FN"[163]38)"+ 390 FORX=0TO6:PRINTR$C$(X)X4$F$X$;:NEXT:PRINT:PRINTTAB(35)"[145]"C$(0)"[165]"TAB(38)"[170] 400 [129]X[178]0[164]6:[153]R$C$(X)X4$F$X$;:[130]:[153]:[153][163]35)"ON"C$(0)"(null)ANDANDSQR 410 PRINT:PRINT"[155]"TAB(160):GOSUB470:CR=.:NU=1:GOSUB550:A2=VAL(M$):J=A2:GOSUB590 420 PRINTTAB(160):GOSUB490:GOSUB550:B2=VAL(M$):J=B2:GOSUB590 430 PRINTTAB(160):GOSUB530:GOSUB550:D2=VAL(M$):J=D2:GOSUB590 440 PRINTTAB(160):GOSUB540:GOSUB550:C2=VAL(M$):J=C2 450 IFA2>7ORB2>7ORC2>7ORD2>7ORA2=B2ORC2=D2THENGOSUB3870:GOTO360 460 GOTO610 470 PRINT"SELECT THE COLOR YOU LIKE BEST,":PRINT" AND ENTER ITS NUMBER:";:RETURN 480 PRINT"NOW, 490 [153]"SELECT THE COLOR YOU LIKE SECOND BEST, 500 PRINT" AND ENTER ITS NUMBER:";:RETURN 510 PRINT"NOW, OF THE REMAINING COLORS, CHOOSE 520 [153]"THE COLOR YOU LIKE LEAST OF ALL. 530 PRINT" NUMBER OF THE "R$" WORST "F$" COLOR:";:RETURN 540 PRINT"AND THE NUMBER OF THE COLOR":PRINT" ALMOST AS BAD:";:RETURN 550 POKES+24,15:POKES+1,110:POKES+5,9:POKES+6,9:POKES+4,17:POKES+4,16:POKE198,0 560 IFRT=1THENRT=0:RETURN 570 GETM$:IFM$=""THEN570 572 IF(CR)AND(M$=CHR$(13))THEN580 574 IF(NU)AND((M$>="0")AND(M$<="7"))THEN580 576 IF(YN)AND((M$="Y")OR(M$="N"))THEN580 578 GOTO570 580 PRINTM$:POKE198,0:RETURN 590 PRINT"":FORY=1TO4:PRINTSPC(5*J)X4$:NEXT:PRINT 600 PRINTTAB(160):FORY=1TO78:PRINTXX$;:NEXT:PRINT"":RETURN 610 POKEV,15:POKEVB,12:PRINTR$"[147] YOUR LUESCHER COLOR SEQUENCES ARE: " 620 PRINT"[151]FIRST ROUND: "R$C$(A1)XX$A1;C$(B1)XX$B1;C$(C1)XX$C1;C$(D1)XX$D1 630 PRINT"[151]SECOND ROUND:"R$C$(A2)XX$A2;C$(B2)XX$B2;C$(C2)XX$C2;C$(D2)XX$D2 640 PRINT:PRINT"[151]FIRST, A "R$"PRELIMINARY EVALUATION:":PRINT:PRINTN$" YOU ARE 650 [139]A2[178]D2[176]A2[178]C2[176]B2[178]D2[176]B2[178]C2[167][153]"CONFUSED.":[141]3870:[137]360 660 [139]A2[178]A1[175]B2[178]B1[175]C2[178]C1[175]D2[178]D1[167]R[178]1:[137]730 670 [139]A2[178]A1[176]A2[178]B1[176]B2[178]A1[176]B2[178]B1[167]690 680 [139]A2[179][177]A1[175]B2[179][177]B1[175]A2[179][177]B1[175]B2[179][177]A1[167]710 690 [139]D2[178]D1[176]D2[178]C1[176]C2[178]C1[176]C2[178]D1[167]760 700 [139]D2[179][177]D1[175]D2[179][177]C1[167]780 710 [139]D2[178]D1[176]D2[178]C1[176]C2[178]C1[176]C2[178]D1[167]800 720 [139]D2[179][177]D1[175]C2[179][177]C1[167]RC[178]1:[137]740 730 [153]" EXTREMELY CONSISTENT IN YOUR CHOICE OF COLORS.";:[137]750 740 [153]" EXTREMELY INCONSISTENT IN YOUR CHOICE OF COLORS."; 750 [153]" REMARKABLE!":[137]820 760 [153]" QUITE CONSISTENT IN YOUR CHOICE OF FAVORITE COLORS, 770 PRINT" AND IN YOUR DISLIKE OF CERTAIN COLORS.":GOTO820 780 PRINT" CONSISTENT IN YOUR CHOICE OF FAVORITE COLORS, BUT INCONSISTENT 790 [137]810 800 [153]"INCONSISTENT IN YOUR CHOICE OF FAVORITE COLORS, BUT CONSISTENT 810 PRINT" IN YOUR DISLIKE OF CERTAIN COLORS. 820 [139]D2[178]D1[175]C2[178]C1[167]RL[178]1 830 [139]P$[178]"P"[167]860 840 [153]"AND NOW, THE "R$"RESULTS"F$" OF YOUR TEST! 850 PRINTSPC(14)"PRESS [151] WHEN READY":NU=.:CR=1:GOSUB550 860 GOSUB3890 870 PRINT"[147]"R$" YOUR PSYCHOLOGICAL PROFILE: " 880 ZZ=0:A=A2:B=B2:C=C2:D=D2 890 PRINTR$"THE PRIMARY EVALUATION":PRINT"SHOWS THAT YOU: 900 [145]A [137]920,930,940,950,960,970,980 910 [153]R$" PREFER TO REMAIN UNCOMMITTED,":[137]990 920 [153]R$" PREFER A STATE OF HARMONY,":[137]1070 930 [153]R$" LIKE TO IMPRESS PEOPLE,":[137]1160 940 [153]R$" DELIGHT IN ACTION,":[137]1250 950 [153]R$" ARE FULL OF EXPECTATIONS,":[137]1360 960 [153]R$" ARE SENTIMENTAL AND ROMANTIC,":[137]1480 970 [153]R$" LIKE PHYSICAL EASE,":[137]1610 980 [153]R$" ARE A DEMANDING PERSON,":[137]1730 990 [139]B[178]1[167][153]"LONG FOR A TRANQUIL ENVIRONMENT":H[178].6:N[178]1 1000 [139]B[178]2[167][153]"FEEL EXHAUSTED BY CONFLICT":H[178].4:N[178]1 1010 [139]B[178]3[167][153]"WISH TO IMPRESS OTHERS":H[178].5:N[178]1 1020 [139]B[178]4[167][153]"TRY TO AVOID CONFLICT":H[178].3:N[178]2 1030 [139]B[178]5[167][153]"ARE CAUTIOUS IN PURSUIT OF TENDERNESS":H[178].2:N[178]1 1040 [139]B[178]6[167][153]"DESIRE A LIFE OF SECURITY":H[178].6:N[178]2 1050 [139]B[178]7[167][153]"FEEL BETRAYED IN YOUR HOPES":H[178].2:N[178]3 1060 [137]1820 1070 [139]B[178]1[167][153]"LONG FOR A TRANQUIL ENVIRONMENT":H[178]1.2:N[178]1 1080 [139]B[178]2[167][153]"HAVE A FINE EYE FOR DETAILS, 1090 IFB=2THENPRINT"LONG FOR A TRANQUIL ENVIRONMENT":H=3.8 1100 IFB=3THENPRINT"SEEK AFFECTIONATE RELATIONSHIPS":H=3.6 1110 IFB=4THENPRINT"SEEK AFFECTIONATE RELATIONSHIPS":H=1.4 1120 IFB=5THENPRINT"LONG FOR TENDERNESS,:H=4.4 1130 [139]B[178]6[167][153]"DESIRE A LIFE OF SECURITY,":H[178]1.1:N[178]1 1140 [139]B[178]7[167][153]"DESIRE REST AND RELAXATION":H[178]0.5:N[178]2 1150 [137]1820 1160 [139]B[178]0[167][153]"FEEL A LACK OF APPRECIATION 1170 IFB=0THENPRINT"AND WANT TO ESTABLISH YOURSELF":H=.7:N=1 1180 IFB=1THENPRINT"WANT TO BE RECOGNIZED AND ADMIRED":H=3.5 1190 IFB=3THENPRINT"YOU SEEK SUCCESS WITH GREAT INITIATIVE":H=5.2 1200 IFB=4THENPRINT"WANT TO BE POPULAR AND ADMIRED":H=2.3 1210 IFB=5THENPRINT"WANT TO BE SUCCESSFUL AND RECOGNIZED":H=4.2 1220 IFB=6THENPRINT"ARE PROUD AND NEED TO BE RECOGNIZED":H=1.8:N=1 1230 IFB=7THENPRINT"WANT TO PROVE YOURSELF":H=.5:N=2 1240 GOTO1820 1250 IFB=0THENPRINT"WANT TO SWEEP AWAY THINGS IN YOUR WAY":H=.9 1260 IFB=1THENPRINT"STRIVE FOR ACTIVITY AND EXPERIENCE":H=4.4:N=1 1270 IFB=2THENPRINT"PURSUE YOUR OBJECTIVES WITH INTENSITY, 1280 [139]B[178]2[167][153]"WANT TO ACHIEVE RECOGNITION AND STANDING":H[178]6.6 1290 [139]B[178]4[167][153]"ARE OF AN ENTHUSIASTIC NATURE 1300 IFB=4THENPRINT"AND SEEK A LIFE FULL OF EXPERIENCE":H=11.0 1310 IFB=5THENPRINT"ARE OF AN ENTHUSIASTIC NATURE 1320 [139]B[178]5[167][153]"AND SEEK AN EXCITING LIFE":H[178]3.5 1330 [139]B[178]6[167][153]"LIKE TO TAKE THINGS EASY":H[178]2.1:N[178]1 1340 [139]B[178]7[167][153]"FEEL TO HAVE MISSED SOMETHING IN LIFE":H[178].3:N[178]2 1350 [137]1820 1360 [139]B[178]0[167][153]"DESIRE A WAY OF ESCAPE":H[178].5:N[178]2 1370 [139]B[178]1[167][153]"ARE ALWAYS READY TO HELP OTHERS":H[178]1.2:N[178]2 1380 [139]B[178]2[167][153]"ARE ALERT AND KEENLY OBSERVANT, AND 1390 IFB=2THENPRINT"WANT TO ACHIEVE RECOGNITION":H=2.2:N=1 1400 IFB=3THENPRINT"DESIRE A WIDE SPHERE OF INFLUENCE 1410 [139]B[178]3[167][153]"AND ARE SOMEWHAT RESTLESS":H[178]6.7:N[178]1 1420 [139]B[178]5[167][153]"LONG FOR EXCITEMENT AND 1430 IFB=5THENPRINT"INTERESTING THINGS TO HAPPEN":H=1.2:N=1 1440 IFB=6THENPRINT"DESIRE PHYSICAL EASE 1450 [139]B[178]6[167][153]"AND PROBLEM-FREE SECURITY":H[178].6:N[178]2 1460 [139]B[178]7[167][153]"ARE HEADSTRONG AND TRY TO ESCAPE FROM PROBLEMS":H[178].3:N[178]3 1470 [137]1820 1480 [139]B[178]0[167][153]"LONG FOR SYMPATHETIC UNDERSTANDING":H[178].3:N[178]1 1490 [139]B[178]1[167][153]"LONG FOR IDEALIZED HARMONY, AND" 1500 [139]B[178]1[167][153]"NEED TENDERNESS AND AFFECTION":H[178]5.1 1510 [139]B[178]2[167][153]"WANT TO MAKE FAVORABLE IMPRESSIONS 1520 IFB=2THENPRINT"AND OBTAIN SPECIAL RECOGNITION":H=4.8 1530 IFB=3THENPRINT"ARE PREOCCUPIED WITH THINGS OF AN EXCIT-ING "; 1540 IFB=3THENPRINT"AND EROTICALLY STIMULATING NATURE":H=3.3 1550 IFB=4THENPRINT"WANT EXCITING THINGS TO HAPPEN, BUT ARE 1560 [139]B[178]4[167][153]"GIVEN TO FANTASY OR DAY-DREAMING":H[178]1.8:N[178]1 1570 [139]B[178]6[167][153]"DESIRE AN ATMOSPHERE OF SENSUOUS LUXURY":H[178].6:N[178]1 1580 [139]B[178]7[167][153]"HAVE AN IMPERATIVE NEED FOR A BOND 1590 IFB=7THENPRINT"WHICH IS SENSUALLY FULFILLING":H=.4:N=2 1600 GOTO1820 1610 IFB=0THENPRINT"ARE IN NEED OF FREEDOM FROM CONFLICT":H=.6:N=2 1620 IFB=1THENPRINT"DESIRE PHYSICAL EASE AND 1630 [139]B[178]1[167][153]"THE ABSENCE OF CONFLICT":H[178].7:N[178]1 1640 [139]B[178]2[167][153]"KEEP YOURSELF UNDER STRICT CONTROL AND 1650 IFB=2THENPRINT"DESIRE AN EASIER AND SAFER SITUATION":H=1.2:N=1 1660 IFB=3THENPRINT"HAVE A POWERFUL DRIVE 1670 [139]B[178]3[167][153]"TOWARDS SENSUOUSNESS":H[178]1.1:N[178]1 1680 [139]B[178]4[167][153]"DESIRE A LIFE OF SENSUOUS EASE, 1690 IFB=4THENPRINT"FREE FROM ANY PROBLEMS":H=.5:N=2 1700 IFB=5THENPRINT"DESIRE LUXURY AND SENSUOUS COMFORT":H=.4:N=1 1710 IFB=7THENPRINT"ARE IDEALISTIC, BUT DISAPPOINTED":H=.2:N=3 1720 GOTO1820 1730 IFB=0THENPRINT"FEEL THE SITUATION MAY BE HOPELESS":H=.3:N=3 1740 IFB=1THENPRINT"RESIST DISAGREEABLE THINGS AND 1750 [139]B[178]1[167][153]"WANT TO BE LEFT IN PEACE":H[178].4:N[178]2 1760 [139]B[178]2[167][153]"OPPOSE RESTRICTION OR OPPOSITION":H[178].3:N[178]2 1770 [139]B[178]3[167][153]"ARE IMPULSIVE AND IMPASSIONED":H[178].2:N[178]2 1780 [139]B[178]4[167][153]"TRY TO ESCAPE FROM YOUR PROBLEMS":H[178].3:N[178]3 1790 [139]B[178]5[167][153]"REFUSE TO MAKE CONCESSIONS 1800 IFB=5THENPRINT" OR COMPROMISES":H=.2:N=2 1810 IFB=6THENPRINT"SET IDEALISTIC, BUT ILLUSORY GOALS":H=.1:N=3 1820 IFZZ=1ANDRL=1THEN2900 1830 PRINT" YET YOU 1840 [145]C [137]1970,2070,2210,2330,2460,2590,2720 1850 [139]D[178]1[167][153]"REFUSE TO RELAX AND YOU EXPERIENCE 1860 IFD=1THENPRINT" RESTLESS DISSATISFACTION.":HH=.9 1870 IFD=2THENPRINT"FEEL UNRESOLVED PRESSURE.":HH=.4 1880 IFD=3THENPRINT"FEEL OVEREXTENDED AND IRRITABLE.":HH=.5 1890 IFD=4THENPRINT"HAVE UNFULFILLED EXPECTATIONS.":HH=1.7 1900 IFD=5THENPRINT"MAINTAIN AN ATTITUDE OF CRITICAL 1910 [139]D[178]5[167][153]"APPRAISAL AND DEMAND COMPLETE SINCERITY.":HH[178]1.7 1920 [139]D[178]6[167][153]"FEEL UNSATISFIED AND WANT TO BE LOVED.":HH[178]3.8 1930 [139]D[178]7[167][153]" ARE ANXIOUS TO EXPERIENCE LIFE IN ALL ITS ASPECTS"; 1940 [139]D[178]7[167][153]" AND LIVE IT TO THE FULL. YOU RESENT RESTRICTIONS"; 1950 [139]D[178]7[167][153]" AND INSIST ON BEING FREE.":HH[178]15.3 1960 [137]2840 1970 [139]D[178]0[167][153]"DISPLAY IMPATIENCE AND RESTLESSNESS.":HH[178]1.5 1980 [139]D[178]2[167][153]"EXPERIENCE PRESSURE FROM STRESS.":HH[178].2 1990 [139]D[178]3[167][153]"EXPERIENCE UNSATISFACTORY RELATIONSHIPS.":HH[178].2 2000 [139]D[178]4[167][153]"EXPERIENCE STRESS FROM DISAPPOINTMENTS.":HH[178].3 2010 [139]D[178]5[167][153]"EXPERIENCE SOME STRESS 2020 IFD=5THENPRINT" FROM LACK OF UNDERSTANDING.":HH=2.0 2030 IFD=6THENPRINT"FEEL A CERTAIN LACK OF APPRECIATION.":HH=.6 2040 IFD=7THENPRINT"EXPERIENCE EMOTIONAL DISSATISFACTION 2050 [139]D[178]7[167][153]" AND HAVE A DESIRE FOR INDEPENDENCE.":HH[178]4.9 2060 [137]2840 2070 [139]D[178]0[167][153]"ARE EXPERIENCING SOME IRRITATION, BUT CONTINUE"; 2080 [139]D[178]0[167][153]" TO PURSUE YOUR OBJECTIVES.":HH[178].7 2090 [139]D[178]1[167][153]"EXPERIENCE SOME DEGREE OF STRESS 2100 IFD=1THENPRINT" AND DISSATISFACTION.":HH=.3 2110 IFD=3THENPRINT"EXPERIENCE SOME STRESS 2120 [139]D[178]3[167][153]" AND ALSO DISSATISFACTION.":HH[178].2 2130 [139]D[178]4[167][153]"ARE EXPERIENCING SOME DISAPPOINTMENT AND"; 2140 [139]D[178]4[167][153]"ARE LOOKING FOR AN ESCAPE ROUTE.":HH[178].4 2150 [139]D[178]5[167][153]"ARE SEARCHING FOR APPRECIATION.":HH[178]1.0 2160 [139]D[178]6[167][153]"ARE LOOKING FOR ALLIES AND DESIRE 2170 IFD=6THENPRINT" THE ESTEEM OF OTHERS.":HH=.7 2180 IFD=7THENPRINT"FEEL RESTRICTED IN YOUR FREEDOM"; 2190 IFD=7THENPRINT" AND SEEK INDEPENDENCE.":HH=1.7 2200 GOTO2840 2210 IFD=0THENPRINT"ARE EXPERIENCING IRRITATION, AND RESIST 2220 [139]D[178]0[167][153]"ADDITIONAL STIMULATION.":HH[178].8 2230 [139]D[178]1[167][153]"EXPERIENCE SOME DISSATISFACTION.":HH[178].2 2240 [139]D[178]2[167][153]"EXPERIENCE STRESS AND DISSATISFACTION.":HH[178].1 2250 [139]D[178]4[167][153]"EXPERIENCE SOME STRESS, 2260 IFD=4THENPRINT" BUT ARE EAGER TO SUCCEED.":HH=1.5 2270 IFD=5THENPRINT"ARE SEARCHING FOR SECURITY 2280 [139]D[178]5[167][153]"AND UNDERSTANDING.":HH[178]0.8 2290 [139]D[178]6[167][153]"ARE POSSIBLY EXPERIENCING SOME SEXUAL STRESS"; 2300 [139]D[178]6[167][153]" FROM SENSUAL SELF-RESTRAINT.":HH[178].7 2310 [139]D[178]7[167][153]"FEEL ANGRY AND A FRUSTRATED DESIRE FOR INDEPENDENCE.":HH[178].9 2320 [137] 2840 2330 [139]D[178]0[167][153]"FEEL THAT LIFE SHOULD YIELD MORE"; 2340 [139]D[178]0[167][153]" AND ARE TENSELY EXPECTANT.":HH[178]2.1 2350 [139]D[178]1[167][153]"EXPERIENCE SOME EMOTIONAL DISAPPOINTMENT":HH[178].2 2360 [139]D[178]2[167][153]" EXPERIENCE SOME STRESS AND DISSATIS-FACTION.":HH[178].1 2370 [139]D[178]3[167][153]"EXPERIENCE SOME STRESS, BUT"; 2380 [139]D[178]3[167][153]" ARE EAGER TO MAKE A GOOD IMPRESSION.":HH[178]0.9 2390 [139]D[178]5[167][153]"HAVE EXPERIENCED DISAPPOINTMENT AND ARE"; 2400 [139]D[178]5[167][153]" WATCHING FOR SINCERE MOTIVES.":HH[178]1.2 2410 [139]D[178]6[167][153]"ARE EXPERIENCING SOME ANXIETY, BUT SHOW"; 2420 [139]D[178]6[167][153]" UNCONCERNED SELF-RELIANCE.":HH[178]1.1 2430 [139]D[178]7[167][153]"HAVE SOME UNFULFILLED HOPES, AND"; 2440 [139]D[178]7[167][153]" INSIST ON FREEDOM OF ACTION.":HH[178]3.4 2450 [137] 2840 2460 [139]D[178]0[167][153]"FEEL SOME IMPATIENCE AND FEEL"; 2470 [139]D[178]0[167][153]" THAT LIFE HAS MUCH MORE TO OFFER.":HH[178]1.7 2480 [139]D[178]1[167][153]"FIND AN EXISTING RELATIONSHIP UNSATIS- FACTORY,"; 2490 [139]D[178]1[167][153]" BUT REFUSE TO GIVE UP.":HH[178].9 2500 [139]D[178]2[167][153]"FEEL A CERTAIN LACK OF APPRECIATION.":HH[178].5 2510 [139]D[178]3[167][153]"EXPERIENCE SOME STRESS, BUT WANT TO 2520 IFD=3THENPRINT"EXPERIENCE EVERYTHING.":HH=.3 2530 IFD=4THENPRINT"HAVE EXPERIENCED DISAPPOINTMENT AND 2540 [139]D[178]4[167][153]"SOMETIMES FEEL MISUNDERSTOOD.":HH[178].9 2550 [139]D[178]6[167][153]"HAVE DIFFICULTIES MAINTAINING STABLE 2560 IFD=6THENPRINT"RELATIONSHIPS, BUT SHOW SELF-RESTRAINT.":HH=1.0 2570 IFD=7THENPRINT"DEMAND INDEPENDENCE AND FREEDOM.":HH=3.6 2580 GOTO 2840 2590 IFD=0THENPRINT"FEEL SOME STRESS FROM SEXUAL DESIRES,"; 2600 IFD=0THENPRINT"BUT EXERCISE GREAT SELF-RESTRAINT.":HH=5.8 2610 IFD=1THENPRINT"EXPERIENCE SOME EMOTIONAL DISCONTENT.":HH=.5 2620 IFD=2THENPRINT"SHOW EXCESSIVE SELF-RESTRAINT.":HH=.2 2630 IFD=3THENPRINT"EXPERIENCE SOME STRESS FROM SEXUAL 2640 [139]D[178]3[167][153]"DESIRES BECAUSE OF SELF-RESTRAINT.":HH[178].6 2650 [139]D[178]4[167][153]"EXPERIENCE SOME STRESS, BUT SHOW 2660 IFD=4THENPRINT"UNCONCERNED SELF-RELIANCE.":HH=1.3 2670 IFD=5THENPRINT"HAVE TROUBLE MAINTAINING RELATIONSHIPS, 2680 [139]D[178]5[167][153]"HAVING A DESIRE FOR EROTIC HARMONY.":HH[178]1.5 2690 [139]D[178]7[167][153]"FEEL STRESS FROM RESTRICTIONS, AND WANT 2700 IFD=7THENPRINT"FREEDOM TO FOLLOW YOUR CONVICTIONS.":HH=5.3 2710 GOTO 2840 2720 IFD=0THENPRINT"BELIEVE THAT LIFE HAS MORE TO OFFER,"; 2730 IFD=0THENPRINT" AND PURSUE YOUR OBJECTIVES FIERCELY.":HH=10.5 2740 IFD=1THENPRINT"ARE IMPATIENT FOR INDEPENDENCE.":HH=1.7 2750 IFD=2THENPRINT"SEEK INDEPENDENCE AND FREEDOM.":HH=.8 2760 IFD=3THENPRINT"EXPERIENCE SOME STRESS IN YOUR DESIRE 2770 [139]D[178]3[167][153]"FOR INDEPENDENCE.":HH[178].7 2780 [139]D[178]4[167][153]"HAVE EXPERIENCED SOME DISAPPOINTMENT, 2790 IFD=4THENPRINT"BUT INSIST ON FREEDOM OF ACTION.":HH=2.5 2800 IFD=5THENPRINT"SEEK AN IDEALIZED SITUATION OF MUTUAL 2810 [139]D[178]5[167][153]"UNDERSTANDING AND ACCORD.":HH[178]3.0 2820 [139]D[178]6[167][153]"RESIST PRESSURE FROM OTHERS, AND INSIST 2830 IFD=6THENPRINT"ON INDEPENDENCE AS AN INDIVIDUAL.":HH=3.5 2840 IFZZ=1THEN2900 2850 H1=H:H2=HH:N1=N:IFR=1THEN2900 2860 PRINT:PRINTR$"A SECONDARY EVALUATION"F$; 2870 IFA2=A1THENPRINT" CONFIRMS THAT YOU":GOTO2890 2880 PRINT" SHOWS ALSO THAT YOU 2890 ZZ[178]1:A[178]A1:B[178]B1:C[178]C1:D[178]D1:N[178]0:[137]900 2900 [153]:[139]P$[178]"P"[167]2920 2910 [153][166]13)"PRESS POKE TO CONTINUE":[141]550:[153]"LOAD" 2920 [153]"YOUR FAVORITE COLOR PAIR WAS: 2930 PRINT" NUMBERS"A2;R$C$(A2)XX$F$C$(8)P$(A2); 2940 PRINT" AND"B2;R$C$(B2)XX$F$C$(8)P$(B2) 2950 PRINT:PRINT"[144]YOU DISLIKED MOST THE COLOR PAIR: 2960 [153]" NUMBERS"C2;R$C$(C2)XX$F$C$(8)P$(C2); 2970 [153]"STOP AND"D2;R$C$(D2)XX$F$C$(8)P$(D2):[153] 2980 [153]"THE FIRST PAIR INDICATES YOUR DESIRED OBJECTIVES. IT WAS CHOSEN BY 2990 PRINT10*H1"PERSONS";:IFH1=.1THENPRINT"[157]"; 3000 PRINT" OUT OF ONE THOUSAND. 3010 [153]:[153]"STOPTHE SECOND PAIR SHOWS POSSIBLE PROBLEMS OR STRESS. 3020 PRINT" THIS COLOR PAIR WAS DISLIKED BY 3030 [153]10[172]H2"PERSONS";:[139]H2[178].1[167][153]"CMD"; 3040 [153]" OUT OF ONE THOUSAND. 3050 PRINT:IFH1<1ANDH2<1THENPRINT"[151]YOU ARE QUITE A UNIQUE PERSON!":PRINT 3060 IFP$="P"THEN3080 3070 PRINTSPC(13)"[151]PRESS [151] TO CONTINUE":GOSUB550:POKEVB,15 3080 PRINT"[147]"R$" IN PSYCHOSOMATIC TERMS," 3090 PRINT"THE STRUCTURAL MEANING OF YOUR CHOSEN FAVORITE COLOR PAIR"; 3100 PRINT" INDICATES:":IFN1=0THENPRINT" NO EMOTIONAL CONFLICT. 3110 [139]N1[178]1[167][153]" AT TIMES, POSSIBLY SOME VERY MINIMAL EMOTIONAL CONFLICT. 3120 IFN1=2THENPRINT" SOME EMOTIONAL CONFLICT MAY EXIST AT TIMES. 3130 [139]N1[178]3[167][153]" EMOTIONAL CONFLICT MAY EXIST. 3140 PRINT:PRINTR$"IN PSYCHOLOGICAL JARGON:":PRINT:IFA1>5ANDA2>5THEN3580 3150 IFA1>2ANDA2>2THEN3370 3160 M$(0,1)="A PERIOD OF RECUPERATION, OR AN INTERVAL OF TRANQUILITY. 3170 M$(0,2)[178]"SEPARATIVE SELF-INDULGENCE, OR DEFENSIVE SUPERIORITY. 3180 M$(0,3)="IMPULSIVENESS, OR ILL-CONSIDERED ACTION. 3190 M$(0,4)[178]"INDECISION, OR LACK OF RESOLUTION. 3200 M$(0,5)="CAUTIOUS SENSITIVITY, OR ONLY TENTATIVE IDENTIFICATION. 3210 M$(0,6)[178]"EXHAUSTION, OR DEPLETION. 3220 M$(0,7)="SEPARATIVE ISOLATION, OR A TOTAL NON-INVOLVEMENT. 3230 M$(1,0)[178]"AN INTERVAL OF TRANQUILITY, OR A PERIOD OF RECUPERATION. 3240 M$(1,2)="DISCRIMINATING CONTROL; SELF-CONTAINED ORDERLINESS. 3250 M$(1,3)[178]"CO-OPERATIVE ENTERPRISE, OR EMOTIONAL FULFILLMENT. 3260 M$(1,4)="EMOTIONAL DEPENDENCY, OR GROUP-ORIENTED HELPFULNESS. 3270 M$(1,5)[178]"ESTHETIC SUSCEPTIBILITY, OR EROTIC SENSITIVITY. 3280 M$(1,6)="SENSUAL EASE, OR INDOLENT ATTACHMENT. 3290 M$(1,7)[178]"ABSOLUTE PEACE. 3300 M$(2,0)="SEPARATIVE SELF-INSISTENCE, OR DEFENSIVE SUPERIORITY. 3310 M$(2,1)[178]"DISCRIMINATING CONTROL WITH SELF- CONTAINED ORDERLINESS. 3320 M$(2,3)="PUPOSEFUL ACTIVITY, OR CONTROLLED INITIATIVE. 3330 M$(2,4)[178]"DEMAND FOR APPRECIATION, OR AMBITION. 3340 M$(2,5)="FLEXIBLE SELF-INSISTENCE; IRRESPONSIBLE CHARM. 3350 M$(2,6)[178]"DEMAND FOR PHYSICAL RELIEF; INSISTENCE ON COMFORT. 3360 M$(2,7)="OBSTINATE EXCLUSION, OR PREJUDICED SELF-RIGHTEOUSNESS. 3370 M$(3,0)[178]"IMPULSIVENESS, OR ILL-CONSIDERED ACTION 3380 M$(3,1)="COOPERATIVE ENTERPRISE, OR EMOTIONAL FULFILLMENT. 3390 M$(3,2)[178]"PUPOSEFUL ACTIVITY; STRONGLY CONTROLLED INITIATIVE. 3400 M$(3,4)="EXPANSIVE ACTIVITY, OR THE DEVELOPMENT OF UNDISCOVERED FIELDS. 3410 M$(3,5)[178]"SUSCEPTIBILITY TO STIMULUS, AND GOOD RESPONSIVENESS. 3420 M$(3,6)="SENSUAL GRATIFICATION; SELF-INDULGENCE. 3430 M$(3,7)[178]"EXAGGERATED DESIRE, OR DRAMATIZATION. 3440 M$(4,0)="INDECISION, OR LACK OF RESOLUTION. 3450 M$(4,1)[178]"EMOTIONAL DEPENDENCY, OR GROUP-ORIENTED HELPFULNESS. 3460 M$(4,2)="DEMAND FOR APPRECIATION, OR AMBITION. 3470 M$(4,3)[178]"EXPANSIVE ACTIVITY, OR THE DEVELOPMENT OF NEW FIELDS. 3480 M$(4,5)="THE LURE OF FANTASY, AND A THIRST FOR ADVENTURE. 3490 M$(4,6)[178]"TOTAL SECURITY, OR UNTRAMMELED EASE. 3500 M$(4,7)="SUDDEN CRISIS, OR HEADSTRONG DECISIONS. 3510 M$(5,0)[178]"CAUTIOUS SENSITIVITY, OR ONLY TENTATIVE IDENTIFICATION. 3520 M$(5,1)="ESTHETIC SUSCEPTIBILITY, OR EROTIC SENSITIVITY. 3530 M$(5,2)[178]"FLEXIBIBLE SELF-INSISTENCE, OR IRRESPON-SIBLE CHARM. 3540 M$(5,3)="SUSCEPTIBLE TO STIMULUS; RESPONSIVENESS 3550 M$(5,4)[178]"THE LURE OF FANTASY, OR OVER-IMAGINATIVE THIRST FOR ADVENTURE. 3560 M$(5,6)="SENSUOUSNESS, OR VOLUPTUOUSNESS. 3570 M$(5,7)[178]"NEED FOR IDENTIFICATION, OR COMPULSIVE BLENDING. 3580 M$(6,0)="EXHAUSTION, OR DEPLETION. 3590 M$(6,1)[178]"SENSUAL EASE, OR INDOLENT ATTACHMENT. 3600 M$(6,2)="DEMAND FOR PHYSICAL RELIEF, INSISTENCE ON COMFORT. 3610 M$(6,3)[178]"SENSUAL GRATIFICATION; SELF-INDULGENCE. 3620 M$(6,4)="TOTAL SECURITY, OR UNTRAMMELED EASE. 3630 M$(6,5)[178]"SENSUOUSNESS, OR VOLUPTUOUSNESS. 3640 M$(6,7)="SELF-DISPARAGEMENT. 3650 M$(7,0)[178]"SEPARATE ISOLATION, OR NON-INVOLVEMENT. 3660 M$(7,1)="ABSOLUTE PEACE. 3670 M$(7,2)[178]"OBSTINATE EXCLUSION, OR PREJUDICED SELF-RIGHTEOUSNESS. 3680 M$(7,3)="EXAGGARATED DESIRE, OR DRAMATIZATION. 3690 M$(7,4)[178]"SUDDEN CRISIS, OR HEADSTRONG DECISIONS. 3700 M$(7,5)="NEED FOR IDENTIFICATION, OR COMPULSIVE BLENDING. 3710 M$(7,6)[178]"SELF-DISPARAGEMENT. 3720 PRINTR$"PRIMARILY,":PRINTM$(A2,B2):IFA1=A2ANDB1=B2THEN3740 3730 PRINT"AND "R$"SECONDARILY,":PRINTM$(A1,B1) 3740 PRINT:PRINTR$"BUT, "N$:PRINT"DON'T TAKE ALL THIS TOO SERIOUSLY! 3750 [139]RC[178]1[167][153]" ESPECIALLY IN VIEW OF YOUR INCONSISTENTCOLOR CHOICES... 3760 PRINT:PRINTSPC(13)"BEST WISHES,":PRINTSPC(13)"GERHARD F. SCHILLING, PH.D. 3770 [139]P$[178]"P"[167]P$[178]"":[152]4:[160]4:[137]4120 3780 [153]"DO YOU WANT A PRINTOUT? (Y/NPOKE)":YN[178]1:[141]550:[139]M$[179][177]"Y"[175]M$[179][177]"(null)"[167]4120 3790 [159]15,4,15:[160]15:[139]ST[178].[167]3810 3800 [153]"LOADPRINTER NOT ONLINE! SWITCH IT ON !STOP":[137]3780 3810 [153][166]10)"LOADPRINTING":P$[178]"P":[159]4,4:[157]4 3820 [153][166]5)"YOUR LUESCHER COLOR TEST, "N$:[153] 3830 [153]"YOUR COLOR SEQUENCES WERE:":P$(0)[178]"GREY":P$(1)[178]"BLUE":P$(2)[178]"GREEN 3840 P$(3)="RED":P$(4)="YELLOW":P$(5)="VIOLET":P$(6)="BROWN":P$(7)="BLACK 3850 [153]:[153]"FIRST ROUND: "A1;P$(A1)X$B1;P$(B1)X$C1;P$(C1)X$D1;P$(D1) 3860 [153]"SECOND ROUND:"A2;P$(A2)X$B2;P$(B2)X$C2;P$(C2)X$D2;P$(D2):[137]640 3870 [153]"STOPSORRY, YOU MADE AN ENTRY MISTAKE.":[153]"POKEWE HAVE TO START OVER. 3880 PRINTSPC(22)"PRESS [151]":CR=1:NU=.:GOSUB550:RETURN 3890 POKEBV,12:IFA2=2ORA2=4ORA2=6THENPOKEVB,A2+3 3900 IFA2=3ORA2=5THENPOKEVB,A2-1 3910 IFA2=1THENPOKEVB,6 3920 IFA2=7THENPOKEVB,0 3930 RETURN 3940 POKEV,14:POKEVB,14 3950 PRINT"[147]"CHR$(142)"[153][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"; 3960 FORX=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT 3970 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]" 3980 FORX=217TO242:POKEX,PEEK(X)OR128:NEXT 3990 PRINT" LOADSTAR PRESENTS:" 4000 PRINT"  " 4010 PRINT"  YOUR COLOR PROFILE  " 4020 PRINT"   " 4030 PRINT"  BY GERHARD SCHILLING, PH.D. " 4040 PRINT"   " 4050 PRINT"  (C)OPYRIGHT 1988  " 4060 PRINT"   " 4070 PRINT"  " 4080 PRINT" BASED ON DR. MAX LUESCHER'S" 4090 PRINT" 'DIE FARBWAHL ALS PSYCHOSOMATISCHER" 4100 PRINT" TEST.' DTS.MED.JOURNAL,12,406,1961" 4110 PRINT" PRESS  TO CONTINUE.":CR=1:GOSUB550:RETURN 4120 PRINT"[147]DO YOU WANT ANOTHER TRY? (Y/N[151])":GOSUB550 4130 IFM$="Y"ORM$="[217]"THENRUN 4140 PRINT"[147] ARE YOU SURE YOU WANT TO QUIT? (Y/N[151])":GOSUB550 4150 IFM$<>"Y"ANDM$<>="[217]"THENRUN 4160 FORX=0TO24:POKES,0:NEXT:POKEV,14:POKEVB,14 4170 PRINT"[147]RETURNING TO LOADSTAR":CLR 4180 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15 4190 IFER<>63THENEND 4200 M9=1:LOAD"MAGIC III",8,1